## Warning: package 'dplyr' was built under R version 3.4.2

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

## Warning: package 'tidyr' was built under R version 3.4.3

The data that I chose was from FigShare and can be reached at reef_fish
The data is on reef fish in Australia and New Zealand that was taken over a 3 year period. Each entry has a specific latitude and longitude that corresponds with the site and site code which I use to break up the data since it is so large (over 130,000 entries). Each entry is made by a diver who observed the fish families and counted the totals.

reef_fish <- read.csv('../data/RLSreeffishdataset.csv')

• site CG10

CG10_site <- select(reef_fish, SiteCode, Diver, Family, Total) %>% 
  filter(SiteCode == "CG10")

## Warning: package 'bindrcpp' was built under R version 3.4.4

• site CG11

CG11_site <- select(reef_fish, SiteCode, Diver, Family, Total) %>% 
  filter(SiteCode == "CG11") 

Want to see if there is a difference between what divers see at the sight

## Adding missing grouping variables: `Family`